Fritz: All Fritz

home *** CD-ROM | disk | FTP | other *** search

/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / BUSINESS / YCOLECT2.LZH / COLL-C41.EXE / COLLECT.ACS / COLL7_5.DOC < prev next >

Wrap

Text File | 1990-08-24 | 12KB | 254 lines

/--------------------------\ | Process 1: | | Logic of the Preprocessor | \--------------------------/ Overview: Thσ preprocesso≥ perform≤ ß higΦ leve∞ checδ iε thσ Paymen⌠ Detai∞ Filσ fo≥ ì certaiεá indexeΣá values¼á theε make≤ real-timσ correction≤ anΣ update≤á a≤ ì needed« Logic of Process 1: Thσá preprocesso≥á examine≤á thσ Paymen⌠ Detai∞á Filσá anΣá extract≤á thosσ ì record≤ tha⌠ mee⌠ thesσ criteria: 1⌐ Currentl∙ Activated 2⌐ Streaφ no⌠ finished Record≤á thu≤ selecteΣ arσ theε processeΣ fo≥ de-escalatioεá status«á Thi≤ ì fragmen⌠á froφá thσ Paymen⌠ Detai∞ Filσ Hel≡ screeε define≤ DE_ESCALA╘á anΣ ì PERCENT_PD« ---------------------------------------------------------------------------- * 3 PERCENT_PD <== Percent Paid= ((Gross Paid/Gross Owed) x 100) | . . # 11 DE_ESCAL <== Logical field for de-escalation value. . # 10 DE_ESCALAT <== De-escalation value. Once this optional Percentage | Paid is reached, all letters stop. | ---------------------------------------------------------------------------- DE_ESCALA╘ i≤ thσ percentagσ de-escalatioε valuσ yo⌡ assigε t∩ eacΦ record¼ ì whilσ PERCENT_P─ i≤ thσ percentagσ paiΣ tha⌠ thσ prograφ calculates. Wheε thσ preprocesso≥ determine≤ tha⌠ thσ percentagσ de-escalatioε valuσ i≤ ì equa∞á t∩ o≥ greate≥ thaε thσ percentagσ paid¼á i⌠ set≤ DE_ESCA╠ t∩á '.T.º ì anΣá place≤á thσ followinτ tex⌠ int∩ thσ mem∩ fielΣ oµ thσá Paymen⌠á Detai∞ ì File: -------------------------------------------------------------------------- -- De-escalation of active account -- | -- performed on Thursday, August 16, 1990: -- | | Current Percentage paid: 62 Current De-escalate value: 50 | [Gross Owed: $ 2700.00; Gross Paid: 1675.00; Net Owed: 1025.00] | | -------------------------------------------------------------------------- èT∩á reversσ o≥ reinstatσ aε accoun⌠ alread∙ identifieΣ a≤ havinτá beeεá de-ì escalated¼á thσá preprocesso≥á make≤ thi≤ entr∙ int∩ thσ mem∩ fielΣ oµá thσ ì Paymen⌠ Detai∞ File: -------------------------------------------------------------------------- -- Reversal of De-escalate value, from .F. to .T. -- | -- performed on Friday, August 17, 1990: -- | | Current Percentage paid: 62 Current De-escalate value: 85 | [Gross Owed: $ 2700.00; Gross Paid: 1675.00; Net Owed: 1025.00] | | -------------------------------------------------------------------------- Iµá yo⌡á ente≥á ßá crossove≥ valuσ int∩ thσ Paymen⌠á Detai∞á Filσá anΣá thσ ì percentagσá paiΣá become≤ equal≤ o≥ exceed≤ thσ crossove≥ value¼á theεá thσ ì prograφá wil∞ perforφ thσ crossove≥ automatically«á Herσ i≤ aε examplσá oµ ì onσ sucΦ entr∙ int∩ thσ mem∩ fielΣ oµ thσ Paymen⌠ Detai∞ File: -------------------------------------------------------------------------- -- Automatic crossover from one stream to another -- | -- performed on Wednesday, August 15, 1990: -- | [Original crossover value zeroed out] | Crossover value prior to conversion: 60 Percentage paid at crossover: 62 'Stream' assigned prior to conversion: 1 'Stream' assigned after conversion: 2 Letter assigned prior to conversion: 2 Letter assigned after conversion: 5 | New 'STREAM_BGN' assigned of 08/15/1990 | New 'NEXT_LTR' assigned of 09/05/1990 | -------------------------------------------------------------------------- /--------------------------\ | Process 2: | | Logic of the Processor | \--------------------------/ Overview: Oncσ thσ preprocesso≥ ha≤ finisheΣ it≤ part¼á thσ processo≥ take≤ ove≥á anΣ ì assesse≤ thσ numbe≥ oµ letter≤ duσ today¼á iµ any¼ t∩ bσ mergeΣ agains⌠ thσ ì datßá iεá thσ Paymen⌠ Detai∞ File«á Iµ ß holida∙ ha≤ occurreΣ anΣ yo⌡á arσ ì returninτ somσ numbe≥ oµ day≤ afte≥ thσ lette≥ duσ date¼ theε thσ processo≥ ìèstil∞á identifie≤ thi≤ a≤ unprinteΣ unti∞ yo⌡ havσ mergeΣ anΣá printeΣá al∞ ì pendinτ letters. Logiπ oµ Proces≤ 2: Recalling again the Help screen from the Payment Detail File, observe this fragment: ---------------------------------------------------------------------------- * 12 LTRS_SENT <== numbers of letters that have been sent. | 13 ACTIVATED <== is this feature activated or not? | * 14 STREAM_BGN <== Date letters began from this 'stream' | * 15 SEQUENCE <== Sequence of letter in current 'stream' * 16 NEXT_LETTR <== number of next letter in this 'stream' * 17 NEXT_LTR <== date of next letter due in this 'stream' * 18 NXLTR_DTNL <== Days to Next Letter [DTNL] in this 'stream.' Iµ zero¼átheε 'streamº i≤ finisheΣ anΣ STREAM_FI╬áse⌠át∩ True. | * 19 STREAM_FIN <== if 'stream' is finished, set to True; else False. | * 20 DATE_LASTL <== Date when last letter was sent | ---------------------------------------------------------------------------- Thσá processo≥ examine≤ thσ Paymen⌠ Detai∞ Filσ anΣ extract≤ thosσá record≤ ì tha⌠ mee⌠ thesσ criteria: 1⌐ Currentl∙ Activated 2⌐ Streaφ no⌠ finished 3) Not yet de-escalated Oncσ thosσ record≤ arσ isolated¼ thσ processo≥ examine≤ thσ NEXT_LT╥ field¼ ì thσ datσ oµ nex⌠ lette≥ duσ iε thi≤ 'stream'«á Iµ tha⌠ datσ occur≤á toda∙ ì o≥á prio≥ t∩ day¼á theε i⌠ i≤ counteΣ a≤ duσ anΣ displayeΣ iε summar∙ alonτ ì witΦ an∙ other≤ duσ o≥ ove≥ duσ today. Thσ processo≥ give≤ yo⌡ thesσ option≤ fo≥ processinτ unmergeΣ letters: ------------------------------------------------------------------------- The Printfile is now complete, containing the merged letters. | You can now choose to send all merged letters to 'VIEW.TXT' for your | review now or you can send the Printfile directly to the printer. | Enter your choice: 0 = bypass selections 1 and 2 1 = send letters to 'VIEW.TXT' | 2 = sent labels to 'VIEW.TXT' | 3 = send letters, then labels to printer | ------------------------------------------------------------------------- Option≤á ▒ anΣ ▓ senΣ letter≤ o≥ label≤ t∩ 'VIEW.TXT'¼á ß tex⌠á file¼á theε ì display≤ thσ content≤ t∩ yo⌡ oµ tha⌠ file«á Thesσ tw∩ selection≤ havσ n∩ ì effec⌠á oεá thσá Paymen⌠á Detai∞ File«á Oncσá yo⌡á selec⌠á optioεá 3¼á thσ ì postprocesso≥áá take≤áá ove≥áá anΣáá update≤á thσáá Paymen⌠áá Detai∞áá Filσ ì correspondingly. /---------------------------\ è | Process 3: | | Logic of the Postprocessor | \---------------------------/ Overview: Thσá postprocesso≥á i≤á thσá prin⌠ anΣ updatσá functioεá tha⌠á follow≤á thσ ì processor«á An∙ letter≤ identifieΣ iε thσ Paymen⌠ Detai∞ Filσ a≤ unprinteΣ ì arσ theε merged¼ printed¼ anΣ updateΣ t∩ reflec⌠ tha⌠ event« Thσá postprocesso≥á theε perform≤ thσ looku≡ functioε int∩ thσá Librar∙á oµ ì Letter≤ anΣ Definition≤ oµ 'Streamsº t∩ identif∙ iµ an∙ furthe≥ letter≤ arσ ì needed« Iµ so¼ i⌠ calculate≤ thσ nex⌠ duσ datσ baseΣ oε thσ DTNL¼ adjusteΣ ì fo≥ thσ worδ week« Iµ thσ streaφ i≤ finished¼ theε thσ postprocesso≥ mark≤ ì thσ Paymen⌠ Detai∞ Filσ accordingly. Logic of Process 3: Wheneve≥ ß lette≥ i≤ duσ fo≥ printinτ anΣ yo⌡ elec⌠ t∩ prin⌠ it¼ theε thi≤ ì entr∙ i≤ automaticall∙ madσ : -------------------------------------------------------------------------- -- Letter merged and printed on Thursday, August 16, 1990: -- | | Current 'Stream' assigned: 2 | Letter sent: 7 Sequence of letter in current 'stream': 3 | | [Gross Owed: $ 6950.00; Gross Paid: 1250.00; Net Owed: 5700.00] | -------------------------------------------------------------------------- /--------------------------\ | Other logical functions | | outside the Processors | \--------------------------/ Logic of Escalation: Thσ logiπ tha⌠ identifie≤ whicΦ record≤ arσ t∩ bσ escalateΣ i≤ containeΣ iε ì thσá Report≤á Menu¼á optioεá 3: ============== | OPTION 3: | ============== "3) Escalation Report" First¼á optioεá │á identifie≤ al∞ record≤ iε thσ Paymen⌠ Detai∞á Filσá tha⌠ ì exhibit these traits:è 1⌐ Currentl∙ Activated 2) Stream not finished 3) Not yet de-escalted Theεá thi≤á repor⌠ select≤ thosσ record≤ froφ thσ Paymen⌠ Detai∞ Filσá tha⌠ ì mee⌠á thσá minimuφá selectioεá value≤ yo⌡ ente≥ unde≥á thσá ESCALATE_▒á anΣ ì ESCALATE_▓ constraints. Specifically, these two logical tests are applied: PERCENT_PD <= ESCALATE_2 Current date >= (STREAM_BGN + INT((ESCALATE_1 / (DEFDAYS / 7)))) 'INTºá i≤á integer¼á whilσ 'DEFDAYSº i≤ thσ defaul⌠ day≤ o≥ worδá weeδá yo⌡ ì assign¼á factoreΣá b∙ thσ tota∞ numbe≥ oµ day≤ availablσ iε onσ week«á If¼ ì fo≥á example¼á yo⌡ selec⌠ ß worδ weeδ oµ ╡ days¼á theε thσ datσ thσá streaφ ì begaε [STREAM_BGN▌ i≤ addeΣ t∩ ESCALATE_▒ iε thi≤ manner: ESCALATE_▒ » (╡ » 7) Recalling a fragment of the Help screen on the Payment Detail File: # 8 ESCALATE_1 <== Escalate value #1: used with Escalate value # 2. If both values are realized, then this debtor is identified on Escalation Report. Escalate value #1 shows the number of days that must pass before this debtor is so remiss as to warrant escalation, such as direct phone calls. # 9 ESCALATE_2 <== Escalate value #2: used with Escalate value # 1. If both values are realized, then this debtor is identified on Escalation Report. Escalate value #2 shows the minimum Percent Paid that this debtor must attain during the days allowed in Escalate value #1.